home *** CD-ROM | disk | FTP | other *** search
/ PCMania 32 / PCMania CD32_2.iso / bioforge / script / ai_hard.scp < prev    next >
Text File  |  1995-02-22  |  4KB  |  217 lines
  1.  
  2. { HARD_ENTER_COMBAT
  3.  
  4.  
  5. w CURFIG CLEAR H-LSHAN PICTURE 1
  6. w CURFIG CLEAR H-FLHAN PICTURE 2
  7. w CURFIG CLEAR H-LHAND PICTURE 3
  8. w CURFIG CLEAR H-RHAND PICTURE 4
  9.  
  10. }
  11. { HARD_LEAVE_COMBAT
  12.  
  13. w CURFIG RESTORE H-LSHAN
  14. w CURFIG RESTORE H-FLHAN
  15. w CURFIG RESTORE H-LHAND
  16. w CURFIG RESTORE H-RHAND
  17.  
  18. }
  19.  
  20.  
  21.  
  22.  
  23.  
  24.  
  25.  
  26.  
  27.  
  28.  
  29.  
  30.  
  31.  
  32.  
  33.  
  34.  
  35.  
  36.  
  37. { HARD_WOUNDS
  38. P ~ÇÇ 
  39. P ~Çü 
  40. P ~Çé 
  41. P ~Çâ 
  42. P ~Çä 
  43. P ~Çà 
  44. ~Çä = ^ï╡ 
  45. ~ÇÇ = @Ç» ~Çä 1 10 
  46. ~Çü = .ÇéÇç / 14
  47. ~Çü = 7 - ~Çü 
  48. I ~Çü < 0 THEN ~Çü = 0
  49. I ~Çü > 7 THEN ~Çü = 7
  50. :TOP
  51. ~Çé = 0
  52.  
  53. I ~ÇÇ < ~Çü THEN
  54. {
  55. ~Çé = 1
  56. :ADDATWHATPOINT
  57. ~Çâ = @Çà 1 7 
  58. I @ÇÅ ~Çä ~Çâ = 1 THEN J #Çä 
  59. a ~Çä ~Çâ 
  60. ~ÇÇ += 1
  61. }
  62.  
  63. I ~ÇÇ > ~Çü THEN
  64. {
  65. ~Çé = 1
  66. :REMOVEATWHATPOINT
  67. ~Çâ = @Çà 1 7 
  68. I @ÇÅ ~Çä ~Çâ = 0 THEN J #Çà 
  69. b ~Çä ~Çâ 
  70. ~ÇÇ -= 1
  71. }
  72. I ~Çé = 1 THEN J #Çâ
  73.  
  74.  
  75. w CURFIG RESTORE ALL
  76. ~Çà = 4
  77. I @ÇÅ ~Çä 1 THEN ~Çà += 1
  78. I @ÇÅ ~Çä 2 THEN ~Çà += 1
  79. I @ÇÅ ~Çä 3 THEN ~Çà += 1
  80. I @ÇÅ ~Çä 4 THEN ~Çà += 1
  81. I ~Çà > 4 THEN
  82. w CURFIG DRAWONLY H-CHEST PICTURE ~Çà 
  83. I @ÇÅ ~Çä 5 THEN
  84. w CURFIG DRAWONLY H-BACK PICTURE 9
  85. I @ÇÅ ~Çä 6 THEN
  86. w CURFIG DRAWONLY H-FLL1 PICTURE 10
  87. I @ÇÅ ~Çä 7 THEN
  88. w CURFIG DRAWONLY H-FRL PICTURE 11
  89. ^ï╡ = ~Çä 
  90. @Ç¢ LEX 
  91. }
  92. { HARD_BAT_100_TAKE
  93. @üì `몠$üë "a battery/GEine Batterie/FUne batterie"
  94. }
  95. { HARD_BAT_150_TAKE
  96. @üì `몠$üë "a battery/GEine Batterie/FUne batterie" 
  97. }
  98. { HARD_ABAT_500_TAKE
  99. @üì `뺠$üë "an alien battery/GEine außerirdische Batterie/FUne batterie d'extra-terrestre" 
  100. }
  101. { HARD_BLASTER_TAKE
  102. @üì `ë¿ $üë "a blaster/GEin Strahler/FUne arme"
  103. }
  104. { HARD_BLASTER2_TAKE
  105. @üì `ë¿ $üë "a blaster/GEin Strahler/FUne arme"
  106. }
  107. { HARD_BLASTERM2_TAKE
  108. @üì `ë¿ $üë "a blaster/GEin Strahler/FUne arme"
  109. }
  110. { HARD_BLASTERM3B_TAKE
  111. @üì `ë¿ $üë "a blaster/GEin Strahler/FUne arme"
  112. }
  113. { HARD_BLASTERM5_TAKE
  114. @üì `ë¿ $üë "a blaster/GEin Strahler/FUne arme"
  115. }
  116. { HARD_BLOCK_TAKE
  117. @üì `ë⌐ $üë "an alien artifact/GEin außerirdisches Artefakt/FUn objet fabriqué par les extra-terrestres..." 
  118. W 5 SECONDS
  119. i LEX ARTIFACT
  120. }
  121. { HARD_BOMB_TAKE
  122. @üì `묠$üë "a bomb!/FUne bombe/GEine Bombe!" 
  123. }
  124. { HARD_CAYARM_TAKE
  125. @üì `ë½ $üë "a severed arm/FUn bras tranché.../GEin abgetrennter Arm" 
  126. W 3 SECONDS
  127. i LEX ARMOFF
  128. }
  129. { HARD_CAYLOG_TAKE
  130. I ^ÇÑ THEN
  131. {
  132. I ^Ǫ THEN
  133. @üì `ë¼ $üë "Caynan's logbook/FLe Livre de bord de Caynan/GCaynans Logbuch" 
  134. E 
  135. @üì `ë¡ $üë "Caynan's logbook?/FLe Livre de bord de Caynan?/GCaynans Logbuch?" 
  136. }
  137. E 
  138. @üì `ë« $üë "a logbook/FUn Livre de bord/GEin Logbuch" 
  139. }
  140. { HARD_DANELOG_TAKE
  141. I ^ÇÑ THEN
  142. @üì `ë» $üë "Dane's logbook/FLe Livre de bord de Dane/GDanes Logbuch" 
  143. E 
  144. @üì `ë« $üë "a logbook/FUn Livre de bord/GEin Logbuch" 
  145. }
  146. { HARD_FLUTE_TAKE
  147. @üì `ë░ $üë "a flute/FUne flûte/GEine Flöte" 
  148. }
  149. { HARD_FORK_TAKE
  150. @üì `ë▒ $üë "a fork/FUne fourchette/GEine Gabel" 
  151. W 3 SECONDS
  152. i LEX FINDFORK
  153. ^îæ = $üâ 
  154. }
  155. { HARD_FORK_DROP
  156. ^îæ = $üé 
  157. }
  158. { HARD_GRENADE_TAKE
  159. @üì `ë▓ $üë "a grenade!/FUne grenade/GEine Granate" 
  160. }
  161. { HARD_KEY_TAKE
  162. @üì `ë⌐ $üë "an alien artifact/GEin außerirdisches Artefakt/FUn objet fabriqué par les extra-terrestres..." 
  163. }
  164.  
  165. { HARD_KEYDVICE_TAKE
  166. @üì `ë│ $üë "a device with a button/FUn appareil avec un bouton/GEin Gerät mit einem Knopf" 
  167. }
  168. { HARD_LEXLOG_TAKE
  169. @üì `ë« $üë "a logbook/FUn Livre de bord/GEin Logbuch" 
  170. }
  171. { HARD_LOGA_TAKE
  172. @üì `ë« $üë "a logbook/FUn Livre de bord/GEin Logbuch" 
  173. }
  174. { HARD_LOGB_TAKE
  175. @üì `ë« $üë "a logbook/FUn Livre de bord/GEin Logbuch"
  176. }
  177. { HARD_MEAT_TAKE
  178. @üì `ë╡ $üë "a hunk of meat/FUn morceau de viande/GEin Fleischklumpen" 
  179. }
  180. { HARD_MEDICAID_TAKE
  181. @üì `ë╢ $üë "a medical device/FUn appareil médical/GEin medizinisches Gerät" 
  182. }
  183. { HARD_PHOTO_TAKE
  184. @üì `ë╖ $üë "a photograph/FUne photographie/GEin Foto" 
  185. }
  186. { HARD_REFLECT_TAKE
  187. @üì `ë╕ $üë "a shimmering cube/FUn cube miroitant/GEin schimmernder Würfel" 
  188. }
  189. { HARD_REFLECT_DROP
  190.  
  191. I @Ç⌐ HARD != 1 THEN é 
  192. I @Çó ^àï THEN
  193.  ^àï 
  194. ù LEX 
  195. @Ç¥ LEX_WOUNDS
  196. I @ÇÄ BCH || @ÇÄ LND || @ÇÄ PAD THEN
  197. {
  198. M CHOKE
  199. @Ç¥ KILLLEX
  200. é 
  201. }
  202. }
  203. { HARD_SCANNER_TAKE
  204. @üì `ë╣ $üë "a scanning device/FUn scanner/GEin Scanner" 
  205. }
  206. { HARD_TONFA_TAKE
  207. @üì `ë║ $üë "a big gun/FUne grosse arme/GEin Gewehr"
  208. W 10 SECONDS
  209. i LEX TONFA
  210. }
  211. { HARD_WTALKY_TAKE
  212. @üì `ë╗ $üë "a damaged walky-talky/FUn talkie-walkie endommagé/GEin beschädigtes Funkgerät" 
  213. }
  214.  
  215.  
  216. //$ 26 - version number
  217.